subroutine write_head(lunit,c_str,t_str,n_rank,n_proc)
  implicit none
  integer,intent(in) :: lunit,n_rank,n_proc
  character :: c_str*(*),t_str*(*)

900 format("PAVIO-Ver",a)
901 format(1x,"Start at ",a)
902 format(1x,"Processor number=",i0,"/",i0)

  write(lunit,900) c_str
  write(lunit,901) t_str
  write(lunit,902) n_rank,n_proc

  return

end subroutine write_head
